function [discount,beca,stipend] = u37_2011(math,lang,demrecode,his,sci)
%% Universidad Catolica de Temuco
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Becas de Excelencia Acad'emica UC Temuco
discount=0.5*(lm>=700)+0.3*(lm>=750);

%Beca Monse;or Jorge Hourton
auxdiscount=((math==850) + (lang==850) + (his==850) + (sci==850))>0;
discount=max(discount,auxdiscount);

%BVP
if demrecode==3746 || demrecode==3724 || demrecode==3745 || demrecode==3722 || demrecode==3727 || demrecode==3748 || demrecode==3723 || demrecode==3728 || demrecode==3747 || demrecode==3726 || demrecode==3729
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
